﻿Imports System.Data.SqlClient
Public Class DF08_VA
    Inherits Conexion
    Dim cmd As New SqlCommand

    Public Function guardar(ByVal dts As Entidades.EF08Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F08VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@lugarfecha", dts.lugarfech)
            cmd.Parameters.AddWithValue("@precio", dts.precioo)
            cmd.Parameters.AddWithValue("@chapa", dts.chapaa)
            cmd.Parameters.AddWithValue("@porcentajecompr", dts.porcentajecomprr)
            cmd.Parameters.AddWithValue("@apecompr", dts.apecomprr)
            cmd.Parameters.AddWithValue("@callecompr", dts.callecomprr)
            cmd.Parameters.AddWithValue("@numcompr", dts.numcomprr)
            cmd.Parameters.AddWithValue("@pisocompr", dts.pisocomprr)
            cmd.Parameters.AddWithValue("@dptocompr", dts.dptocomprr)
            cmd.Parameters.AddWithValue("@callecompr", dts.callecomprr)
            cmd.Parameters.AddWithValue("@numcompr", dts.numcomprr)
            cmd.Parameters.AddWithValue("@pisocompr", dts.pisocomprr)
            cmd.Parameters.AddWithValue("@dptocompr", dts.dptocomprr)
            cmd.Parameters.AddWithValue("@codpostalcompr", dts.codpostalcomprr)
            cmd.Parameters.AddWithValue("@loccompr", dts.loccomprr)
            cmd.Parameters.AddWithValue("@partdptocompr", dts.partdptocomprr)
            cmd.Parameters.AddWithValue("@provcompr", dts.provcomprr)
            cmd.Parameters.AddWithValue("@dnicompr", dts.dnicomprr)
            cmd.Parameters.AddWithValue("@lecompr", dts.lecomprr)
            cmd.Parameters.AddWithValue("@lccompr", dts.lccomprr)
            cmd.Parameters.AddWithValue("@dniextrcompr", dts.dniextrcomprr)
            cmd.Parameters.AddWithValue("@ciextrcompr", dts.ciextrcomprr)
            cmd.Parameters.AddWithValue("@pasapcompr", dts.pasapcomprr)
            cmd.Parameters.AddWithValue("@numdoccompr", dts.numdoccomprr)
            cmd.Parameters.AddWithValue("@autoridadcompr", dts.autoridadcomprr)
            cmd.Parameters.AddWithValue("@dianaccompr", dts.dianaccomprr)
            cmd.Parameters.AddWithValue("@mesnaccompr", dts.mesnaccomprr)
            cmd.Parameters.AddWithValue("@añonaccompr", dts.añonaccomprr)
            cmd.Parameters.AddWithValue("@solterocompr", dts.solterocomprr)
            cmd.Parameters.AddWithValue("@casadocompr", dts.casadocomprr)
            cmd.Parameters.AddWithValue("@viudocompr", dts.viudocomprr)
            cmd.Parameters.AddWithValue("@divcompr", dts.divcomprr)
            cmd.Parameters.AddWithValue("@numnupciacompr", dts.numnupciacomprr)
            cmd.Parameters.AddWithValue("@apenomconycompr", dts.apenomconycomprr)
            cmd.Parameters.AddWithValue("@personeriacompr", dts.personeriacomprr)
            cmd.Parameters.AddWithValue("@insccompr", dts.insccomprr)
            cmd.Parameters.AddWithValue("@diainsccompr", dts.diainsccomprr)
            cmd.Parameters.AddWithValue("@mesinsccompr", dts.mesinsccomprr)
            cmd.Parameters.AddWithValue("@añoinsccompr", dts.añoinsccomprr)
            cmd.Parameters.AddWithValue("@porcentajecond", dts.porcentajecondd)
            cmd.Parameters.AddWithValue("@apecond", dts.apeconddd)
            cmd.Parameters.AddWithValue("@callecond", dts.callecondd)
            cmd.Parameters.AddWithValue("@numcond", dts.numcondd)
            cmd.Parameters.AddWithValue("@pisocond", dts.pisocondd)
            cmd.Parameters.AddWithValue("@dptocond", dts.dptocondd)
            cmd.Parameters.AddWithValue("@callecond", dts.callecondd)
            cmd.Parameters.AddWithValue("@numcond", dts.numcondd)
            cmd.Parameters.AddWithValue("@pisocond", dts.pisocondd)
            cmd.Parameters.AddWithValue("@dptocond", dts.dptocondd)
            cmd.Parameters.AddWithValue("@codpostalcond", dts.codpostalcondd)
            cmd.Parameters.AddWithValue("@loccond", dts.loccondd)
            cmd.Parameters.AddWithValue("@partdptocond", dts.partdptocondd)
            cmd.Parameters.AddWithValue("@provcond", dts.provcondd)
            cmd.Parameters.AddWithValue("@dnicond", dts.dniconddd)
            cmd.Parameters.AddWithValue("@lecond", dts.leconddd)
            cmd.Parameters.AddWithValue("@lccond", dts.lcconddd)
            cmd.Parameters.AddWithValue("@dniextrcond", dts.dniextrconddd)
            cmd.Parameters.AddWithValue("@ciextrcond", dts.ciextrconddd)
            cmd.Parameters.AddWithValue("@pasapcond", dts.pasapconddd)
            cmd.Parameters.AddWithValue("@numdoccond", dts.numdocconddd)
            cmd.Parameters.AddWithValue("@autoridadcond", dts.autoridadconddd)
            cmd.Parameters.AddWithValue("@dianaccond", dts.dianaccondd)
            cmd.Parameters.AddWithValue("@mesnaccond", dts.mesnaccondd)
            cmd.Parameters.AddWithValue("@añonaccond", dts.añonaccondd)
            cmd.Parameters.AddWithValue("@solterocond", dts.solterocondd)
            cmd.Parameters.AddWithValue("@casadocond", dts.casadoconddd)
            cmd.Parameters.AddWithValue("@viudocond", dts.viudoconddd)
            cmd.Parameters.AddWithValue("@divcond", dts.divconddd)
            cmd.Parameters.AddWithValue("@numnupciacond", dts.numnupciaconddd)
            cmd.Parameters.AddWithValue("@apenomconycond", dts.apenomconyconddd)
            cmd.Parameters.AddWithValue("@personeriacond", dts.personeriacondd)
            cmd.Parameters.AddWithValue("@insccond", dts.insccondd)
            cmd.Parameters.AddWithValue("@diainsccond", dts.diainsccondd)
            cmd.Parameters.AddWithValue("@mesinsccond", dts.mesinsccondd)
            cmd.Parameters.AddWithValue("@añoinsccond", dts.añoinsccondd)
            cmd.Parameters.AddWithValue("@optasi", dts.optasii)
            cmd.Parameters.AddWithValue("@optano", dts.optanoo)
            cmd.Parameters.AddWithValue("@dominio", dts.dominioo)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamotorr)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummotorr)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasiss)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasiss)
            cmd.Parameters.AddWithValue("@uso", dts.usoo)
            cmd.Parameters.AddWithValue("@lugaryfecha", dts.lugaryfechaa)
            cmd.Parameters.AddWithValue("@fechainsc1", dts.fechainscc1)
            cmd.Parameters.AddWithValue("@importe1", dts.importee1)
            cmd.Parameters.AddWithValue("@acreedor1", dts.acreedorr1)
            cmd.Parameters.AddWithValue("@fechainsc2", dts.fechainscc2)
            cmd.Parameters.AddWithValue("@importe2", dts.importee2)
            cmd.Parameters.AddWithValue("@acreedor2", dts.acreedorr2)


            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function


    Public Function modificar(ByVal dts As Entidades.EF08Vehiculos) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_modificar_F08VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@lugarfecha", dts.lugarfech)
            cmd.Parameters.AddWithValue("@precio", dts.precioo)
            cmd.Parameters.AddWithValue("@chapa", dts.chapaa)
            cmd.Parameters.AddWithValue("@porcentajecompr", dts.porcentajecomprr)
            cmd.Parameters.AddWithValue("@apecompr", dts.apecomprr)
            cmd.Parameters.AddWithValue("@callecompr", dts.callecomprr)
            cmd.Parameters.AddWithValue("@numcompr", dts.numcomprr)
            cmd.Parameters.AddWithValue("@pisocompr", dts.pisocomprr)
            cmd.Parameters.AddWithValue("@dptocompr", dts.dptocomprr)
            cmd.Parameters.AddWithValue("@callecompr", dts.callecomprr)
            cmd.Parameters.AddWithValue("@numcompr", dts.numcomprr)
            cmd.Parameters.AddWithValue("@pisocompr", dts.pisocomprr)
            cmd.Parameters.AddWithValue("@dptocompr", dts.dptocomprr)
            cmd.Parameters.AddWithValue("@codpostalcompr", dts.codpostalcomprr)
            cmd.Parameters.AddWithValue("@loccompr", dts.loccomprr)
            cmd.Parameters.AddWithValue("@partdptocompr", dts.partdptocomprr)
            cmd.Parameters.AddWithValue("@provcompr", dts.provcomprr)
            cmd.Parameters.AddWithValue("@dnicompr", dts.dnicomprr)
            cmd.Parameters.AddWithValue("@lecompr", dts.lecomprr)
            cmd.Parameters.AddWithValue("@lccompr", dts.lccomprr)
            cmd.Parameters.AddWithValue("@dniextrcompr", dts.dniextrcomprr)
            cmd.Parameters.AddWithValue("@ciextrcompr", dts.ciextrcomprr)
            cmd.Parameters.AddWithValue("@pasapcompr", dts.pasapcomprr)
            cmd.Parameters.AddWithValue("@numdoccompr", dts.numdoccomprr)
            cmd.Parameters.AddWithValue("@autoridadcompr", dts.autoridadcomprr)
            cmd.Parameters.AddWithValue("@dianaccompr", dts.dianaccomprr)
            cmd.Parameters.AddWithValue("@mesnaccompr", dts.mesnaccomprr)
            cmd.Parameters.AddWithValue("@añonaccompr", dts.añonaccomprr)
            cmd.Parameters.AddWithValue("@solterocompr", dts.solterocomprr)
            cmd.Parameters.AddWithValue("@casadocompr", dts.casadocomprr)
            cmd.Parameters.AddWithValue("@viudocompr", dts.viudocomprr)
            cmd.Parameters.AddWithValue("@divcompr", dts.divcomprr)
            cmd.Parameters.AddWithValue("@numnupciacompr", dts.numnupciacomprr)
            cmd.Parameters.AddWithValue("@apenomconycompr", dts.apenomconycomprr)
            cmd.Parameters.AddWithValue("@personeriacompr", dts.personeriacomprr)
            cmd.Parameters.AddWithValue("@insccompr", dts.insccomprr)
            cmd.Parameters.AddWithValue("@diainsccompr", dts.diainsccomprr)
            cmd.Parameters.AddWithValue("@mesinsccompr", dts.mesinsccomprr)
            cmd.Parameters.AddWithValue("@añoinsccompr", dts.añoinsccomprr)
            cmd.Parameters.AddWithValue("@porcentajecond", dts.porcentajecondd)
            cmd.Parameters.AddWithValue("@apecond", dts.apeconddd)
            cmd.Parameters.AddWithValue("@callecond", dts.callecondd)
            cmd.Parameters.AddWithValue("@numcond", dts.numcondd)
            cmd.Parameters.AddWithValue("@pisocond", dts.pisocondd)
            cmd.Parameters.AddWithValue("@dptocond", dts.dptocondd)
            cmd.Parameters.AddWithValue("@callecond", dts.callecondd)
            cmd.Parameters.AddWithValue("@numcond", dts.numcondd)
            cmd.Parameters.AddWithValue("@pisocond", dts.pisocondd)
            cmd.Parameters.AddWithValue("@dptocond", dts.dptocondd)
            cmd.Parameters.AddWithValue("@codpostalcond", dts.codpostalcondd)
            cmd.Parameters.AddWithValue("@loccond", dts.loccondd)
            cmd.Parameters.AddWithValue("@partdptocond", dts.partdptocondd)
            cmd.Parameters.AddWithValue("@provcond", dts.provcondd)
            cmd.Parameters.AddWithValue("@dnicond", dts.dniconddd)
            cmd.Parameters.AddWithValue("@lecond", dts.leconddd)
            cmd.Parameters.AddWithValue("@lccond", dts.lcconddd)
            cmd.Parameters.AddWithValue("@dniextrcond", dts.dniextrconddd)
            cmd.Parameters.AddWithValue("@ciextrcond", dts.ciextrconddd)
            cmd.Parameters.AddWithValue("@pasapcond", dts.pasapconddd)
            cmd.Parameters.AddWithValue("@numdoccond", dts.numdocconddd)
            cmd.Parameters.AddWithValue("@autoridadcond", dts.autoridadconddd)
            cmd.Parameters.AddWithValue("@dianaccond", dts.dianaccondd)
            cmd.Parameters.AddWithValue("@mesnaccond", dts.mesnaccondd)
            cmd.Parameters.AddWithValue("@añonaccond", dts.añonaccondd)
            cmd.Parameters.AddWithValue("@solterocond", dts.solterocondd)
            cmd.Parameters.AddWithValue("@casadocond", dts.casadoconddd)
            cmd.Parameters.AddWithValue("@viudocond", dts.viudoconddd)
            cmd.Parameters.AddWithValue("@divcond", dts.divconddd)
            cmd.Parameters.AddWithValue("@numnupciacond", dts.numnupciaconddd)
            cmd.Parameters.AddWithValue("@apenomconycond", dts.apenomconyconddd)
            cmd.Parameters.AddWithValue("@personeriacond", dts.personeriacondd)
            cmd.Parameters.AddWithValue("@insccond", dts.insccondd)
            cmd.Parameters.AddWithValue("@diainsccond", dts.diainsccondd)
            cmd.Parameters.AddWithValue("@mesinsccond", dts.mesinsccondd)
            cmd.Parameters.AddWithValue("@añoinsccond", dts.añoinsccondd)
            cmd.Parameters.AddWithValue("@optasi", dts.optasii)
            cmd.Parameters.AddWithValue("@optano", dts.optanoo)
            cmd.Parameters.AddWithValue("@dominio", dts.dominioo)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamotorr)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummotorr)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasiss)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasiss)
            cmd.Parameters.AddWithValue("@uso", dts.usoo)
            cmd.Parameters.AddWithValue("@lugaryfecha", dts.lugaryfechaa)
            cmd.Parameters.AddWithValue("@fechainsc1", dts.fechainscc1)
            cmd.Parameters.AddWithValue("@importe1", dts.importee1)
            cmd.Parameters.AddWithValue("@acreedor1", dts.acreedorr1)
            cmd.Parameters.AddWithValue("@fechainsc2", dts.fechainscc2)
            cmd.Parameters.AddWithValue("@importe2", dts.importee2)
            cmd.Parameters.AddWithValue("@acreedor2", dts.acreedorr2)


            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function
End Class
